home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / swtools / trubasic / rolldemos / demos / sci / meanfit.tru < prev    next >
Text File  |  1994-08-02  |  651b  |  34 lines
  1. !
  2. !  MEANFIT.  Fit Bezier curve through means of data samples.
  3. !
  4. LIBRARY "sglib.trc"
  5. DIM data(5,15), x(0,0), legends$(0), mean(15), x1(0)
  6.  
  7. call tw_wset_title(0,"meanfit")
  8.  
  9. !
  10. !  Create fake data and graph it.
  11. !
  12. FOR exp = 1 to 5
  13.     FOR pt = 1 to 15
  14.         LET data(exp,pt) = 1/pt+rnd/5
  15.     NEXT pt
  16. NEXT exp
  17.  
  18. CALL SetText("Averaged Results","Time","Count")
  19. CALL ManyDataGraph(x,data,0,legends$,"white white cyan")
  20.  
  21. !
  22. !  Draw Bezier fit through means.
  23. !
  24. FOR pt = 1 to 15
  25.     LET sum = 0
  26.     FOR exp = 1 to 5
  27.         LET sum = sum+data(exp,pt)
  28.     NEXT exp
  29.     LET mean(pt) = sum/5
  30. NEXT pt
  31. CALL AddBezierGraph(x1,mean,1,"magenta")
  32. get point tmp,tmp2
  33. END
  34.